On Error Resume Next
With Worksheets("Calculs")
iRow = .Range("AB:AB").Find(What:=Worksheets("Parameters").OLEObjects("CheckBox" & iIdx).Object.Caption).Row
.Rows(iRow).ShowDetail = Worksheets("Parameters").OLEObjects("CheckBox" & iIdx).Object.Value
End With
On Error GoTo 0
Les intitulés sont écrits en colonne AB
En Colonne AB, je dois entrer des données (Nb of Trips)
Du coup, ai décalé pour avoir les infos en AA
On Error Resume Next
With Worksheets("Calculs")
iRow = .Range("AA:AA").Find(What:=Worksheets("Parameters").OLEObjects("CheckBox" & iIdx).Object.Caption).Row
.Rows(iRow).ShowDetail = Worksheets("Parameters").OLEObjects("CheckBox" & iIdx).Object.Value
End With
On Error GoTo 0
Merci