Insérer un ligne vierge et copier une valeur

Sub InsLig()
Dim i As Long, Valo
    For i = Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("B" & i).Value <> "" Then
            Valo = Range("B" & i).Value
            Range("B" & i + 1).EntireRow.Insert
            If Application.CountIf(Range("A2:A" & i), Valo) > 0 Then Range("A" & i + 1).Value = Valo
        End If
    Next i
End Sub

Sub InsLig()
Dim i As Long, Valo, NbLig as long
Nblig = Range("A" & Rows.Count).End(xlUp).Row
    For i = Range("B" & Rows.Count).End(xlUp).Row To 2 Step -1
        If Range("B" & i).Value <> "" Then
            Valo = Range("B" & i).Value
            Range("B" & i + 1).EntireRow.Insert
            If Application.CountIf(Range("A2:A" & NbLig), Valo) > 0 Then Range("A" & i + 1).Value = Valo
        End If
    Next i
End Sub