Boucle sans do

Sub fret_lignerevêtement() 
 Dim lig As Integer
 Application.ScreenUpdating = False 
 'Range("C5").Select 
 
 lig = 5 'on commence à la ligne 5
 
 Do Until Cells(lig, 3).Value = "File pavé / Bordures / Caniveaux" 
  if Cells(lig, 3).Value = "" then 'si on ne trouve pas le texte on s'arrete
    msgbox "Texte non trouvé"
    exit sub
  end if
  lig = lig + 1
 Loop

 Range("A" & lig).Select
 Selection.EntireRow.Insert 'on insere une ligne
 
 Range("A" & lig-1 & ":AD" & lig-1).Select
 Selection.Copy ' on copie 30 colonnes de la ligne précédente 
 
 Range("A" & lig).Select
 ActiveSheet.Paste 'on colle dans la ligne vide
 
 Application.CutCopyMode = False

 Range("A" & lig).Select 
 Application.ScreenUpdating = True 
End Sub 

Sub fret_lignerevêtement()  
Dim lig As Integer  
    Application.ScreenUpdating = False  
    lig = 5 'on commence à la ligne 5  
   
    Do Until Cells(lig, 3).Value = [K2]  
        If Cells(lig, 3).Value = "" Then 'si on ne trouve pas le texte on s'arrete  
          MsgBox "Texte non trouvé"  
          Exit Sub  
        End If  
        lig = lig + 1  
    Loop  

    Range("A" & lig).EntireRow.Insert  'on insere une ligne  
    Rows(lig - 1).Copy Rows(lig) 'ont la copie  
    Rows(lig).Select  
 'N'est pas nécessaire, remis automatiquement au sortir de la macro.  
 'Application.ScreenUpdating = True  
End Sub

Sub fret_lignerevêtement2() 
Dim lig As Integer, B As Boolean 
    Application.ScreenUpdating = False 
    For lig = 5 To Cells(Rows.Count, 3).End(xlUp).Row 
        If B Then 
            If Cells(lig, 3).Value <> [K2] Then 
                Rows(lig).Insert 
                Rows(lig - 1).Copy Rows(lig) 'ont la copie 
                Rows(lig).Select 
                Exit Sub 
            End If 
        ElseIf Cells(lig, 3).Value = [K2] Then 
            B = True 
        End If 
    Next lig 
'Si la rubrique sélectionnée est la dernière
    Rows(lig - 1).Copy Rows(lig) 'ont la copie 
    Rows(lig).Select 
End Sub