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 !