Bonjour,
Dsl d'avoir laissé le sujet sans réponse depuis ma première intervention.
Ton problème vient de là :
If Not r Is Nothing Then r.Offset(, 1) = r.Offset(, 1) + 1
=> Tu dois plus décaler (offset en anglais) de 1 mais de 4 pour aller en F
If Not r Is Nothing Then r.Offset(, 4) =...