Résultat glisse avec les lignes

Bonjour,

j'espère que vous allez bien,

j'ai besoin de vos compétences pour adapter ce code à mon besoin, le voici :

Sub test()

range("a1").EntireColumn.Insert

Dim x As String
x = "BULLETIN DE PAIE"

For ligne = 2 To 50000

If cells(ligne, 2) = x Then
cells(ligne, 1) = range("b3").Value
Else
cells(ligne, 1) = range("a1").Value

End If
Next ligne
End Sub

PS : mon problème est que ces 2 valeur sont figés alors que je veux qu'ils glissent avec les lignes

Merci pour votre aide !

Bonjour

une idée

Sub test()
Application.ScreenUpdating = False
Dim x As String
Dim y As Long
Dim ligne As Integer
x = "BULLETIN DE PAIE"
Range("A1").EntireColumn.Insert
y = Cells(Rows.Count, 2).End(xlUp).Row

For ligne = 2 To y

If Cells(ligne, 2).Value = x Then
Cells(ligne, 1).Value = Range("B3").Value
Else
Cells(ligne, 1).Value = Range("A1").Value
End If

Next ligne
Application.ScreenUpdating = True
End Sub

merciiiiiiii

Je vous remercie de votre réactivité, ça fonctionne bien

bonjour

si c'est bon, valider le post comme resolut